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ve of contents 
i? 77 eure ERNA me 66 DEFINITIONS 
() ff STANDARD. G iN ALIZATI ROUTINE 
7 4 ORit AN fil ? ibn Ro OT INE 
(9) | DRIVE BY. vies ines 
19e FD ae ] Ne ROUT R BYTE COUNT ALIGNMENT 
(11) 4 START apt seb 
(15) 1054 INTERRUP SERVICE 1 royt ine 
(16) 1267 REGISTER DUMP ROUTINE 
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:@ we 
@ COPYRIGHT («) 1978 1980, 1982, 1984 BY e 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
:# ALL RIGH $ RESERVED. ® 

te 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED : 
:@ ONLY IN ACCORDANCE WITH TH TERMS OF H ° 
® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY IOTHER e 
* COPIES THEREOF MAY NO BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY * 
. R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
:@ TRANSFERRED. * 
‘@ 7 
;@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
;# AND. SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT . 
-@ m 
-@ oe 
‘@ ie 
‘@ ae 
-@ & 
® * 
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CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR )  orzeaedie OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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; FACILITY: 

VAX/VMS VAX 8600 CONSOLE RLO2 DRIVER 

AUTHOR: 

BENN SCHREIBER, 15-MAR-1983 

MODIFIED BY: 


v04-001 BLS0345 Benn Schreiber 27-AUG~1984 
Retry complete transfer rather than attempting restart 
at last block. This avoids verarag per-block in the 
non-error case. Wait for coety before issuing sts/reset 
on error path. Increase ti Soous on read/write operations. 
Check for errors on get status interrupts following read/write. 


v03-005 BLS0342 Benn Schreiber 19-AUG-1984 
Implement abort, reset with status. Modify cvc_getsts 
to use TIMEDWAIT macro. 


v03-004 1CM0002 Trudy C. Matthews 09-Aug=1984 
Increase timeout as in CvC -GETSTS from 30 tu 100000. 


v03-003 TCM0001 Trudy C. Matthews — 
Several bug fixes. Lso @ spec change - “ ~ BN * STXCS 
qos onwers $s be valid for each word of the transfer (and not 
just the first). 
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ae é 3 ABSTRACT: 

900¢ 60 THIS MODULE CONTAINS THE TABLES AND ROUTINES NECESSARY 10 

p00 6): PERFORM ALL DEVICE-DEPENDENT PROCESSING OF AN 1/0 REQUES! 

2006 % : FOR RLO2 DISK TYPES ON A VAX/VMS VAX 8600 CONSOLE SUBSYSTEM. 

9000 6 THE DISKS HAVE THE FOLLOWING PHYSICAL GEOMETRY: 

00¢ 6 TRACKS/.  SECTORS/- = BYTES/ = MAXIMUM 

p00) = 8 # cy CYLINDER TRACK SECTOR BLOCKS 

00¢ 85; R02 512 2 40 256 20480 


c= 

— 
~~NOo 
-o 


0 THE 10$X_INHSEEK FUNCTION MODIFIER IS TREATED AS A NO-OP BY 
900¢ 7 THIS DRIVER, SINCE AN IMPLICIT SEEK IS ALWAYS DONE BY THE 
00 4 CONSOLE SUBSYSTEM WHEN READING/WRITING. 
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rf) -SBTTL EXTERNAL AND LOCAL DEFINITIONS 
» ; EXTERNAL SYMBOLS 
§ sceeoer ;DEFINE CHANNEL REQUEST BLOCK 
4 SOCDE sDEFINE DEVICE CLASS 
5 SODBDEF sDEFI MES DATA BLOCK 
$ SOEVDEF sDEFINE DEVICE CHARACTERISTICS 
SOPTDEF DEFINE DRIVER PR TABLE 
$ SO yWOEr sDEFINE DYNAMIC DATA STRUCTURE TYPES 
EMBDEF DEF IN panon MESSAGE BUFFER 
0 SIDBDEF sDEFINE INTERRUPT DATA BLOCK 
1 SIODEF DEF INE 8 FUNCTION CODES 
3 SIRPODEF sDEFINE 1/0 REQUEST PACKET 
7) SPRDEF sDEFINE PROCESSOR REGISTERS 
9% SSSDEF sDEFINE SYSTEM STATUS CODES 
95 SUCBOEF DEFINE UNIT CONTROL BLOCK 
38 SVECDEF DEFINE INTERRUPT VECTOR BLOCK 
98 ; GENF 
199 3 GENERATE CASE TABLE INDEX SYMBOL 
101 MACRO GENF cope 
10¢ CD*FCODE=SSGENF _CODE 
1 SSGENF _CODE=SSGENF_CODE+1 
; : .ENDM 
! $ ; LOCAL SYMBOLS 
00000004 108 CV_NUM_REGS = 4 NUMBER OF DEVICE REGISTERS (MIMIC RLO2) 
00000005 19? CV_SLM = 5 sSTATE=SEEK LINEAR MODE (READY TO GO) 
1) 3; UCB OFFSETS WHICH FOLLOW THE STANDARD UCB FIELDS 
11§ SDEFINI UCB START OF UCB DEFINITIONS 
000000CC 115 ,sUCBSK_LCL_DISK_LENGTH ;BEGIN DEFINITIONS AT END OF UCB 
16 SEF ucBSi_Ccv-Ccs -BLKL 1 sCONTROL STATUS REGISTER 
117 $SOEF  UCBSL-CV"MP -BLKL 1 SMULTIPURPOSE REGISTER 
118 SDEF UCBSQ_CV"CSMP .BLKQ) 1 sSAVE CS AND MP DURING RESET_STATUS 
i 119 SDEF UCBSB_CV_STATE .BLK 1 ;CURRENT INTERRUPT STATE **ABJACENCY 
ODD} 9 goer UCBSB_CV_STS -BLKB 1 STATUS FLAGS *#t ASSUMED 
4144 1 DEF UCBSW_CV_BBC BLK 1 sBLOCK BYTE COUNT REMAINI 
D0EO g Soer UCBSL-CV"IBUF .BLKL 1 SINTERNAL BUFFER FOR READING 
DOES 123 SDEF  UCBSLICVTAVRTN .BLKL 1 ZADDRESS OF BUFFER MOVE ROUTINE 
DOES § 124 SDEF  UCBSL-CV"BUFWIN .BLKL 1 ;BUFFER WINDOW 
DOEC = 125 4H UCBSQ"CV“BOAT .BLKQ 1 sSAVPTE AND TRANSFER PARAMS THIS BLOCK 
DOF 4 1 $ DEF ucesl tv tN -BLKL 1 ;SAVE STARTING LBN OF TRANSFER 
DOFB = 127 SDEF UCBSL-CV"ABPC) = «.BLKLs SAVE RETURN ADDRESS FROM ABORT CALL 
OFC 168 SDEF = UCB SK ACV LEN = BLKW 0 LENGTH OF UCB 
DOF ' 6 DEFERD OCB sEND OF UCB DEF INITONS 
ue 
+ 
00 1 5 
D0 132 ; RLI1/RLO1 REGISTER OFFSETS FROM CSR ADDRESS 
1 
ve é 


$< 


tose omen - 


: 743: Macro v04-00 Page 
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ik eee : START OF REGISTER DEFINITIONS 

1 4 SDEFINI CV : 
1 
} ; UCBSB_CV_STS FLAGS 
3 oe ;SET IF READ OPERATION 
i <Rb 1 H> = : ATUS ONLY 
143 CS TSOML TMD om FERRO FROM CONSOLE OW GETSTS. INTERRUPT 
128 <ABORT, , >> sABORT CURRENT OPERATI seek 
rt} : TUS REGISTER 
145 _ CVrerD Cv_cS,0 =~ ESTART OF CR BIT DEFINITIONS 
103 “3 <ORDY, ,M>,= : DRIVE ne eles 
B05 149 <°3> ie : BUS ADDRESS EXTENSION BITS 
13 2°4><0 + INTERRUPT ENABLE 
139 ee : CONTROLLER READY 
o§ 12 <6 5>,- + DRIVE SELECT 
138 5 A>,- : OPERATION INCOMPLETE 
° 1 ps 4 : DATA CRC OR HEADER CR 
B05 (ee <tut’ me: + DATA LATE OR HEADER NOT FOUND 
8§ 383 pt ; NON-EXISTENT MEMORY 
0005 137 <DE,.A>,= ; DRIVE ERROR 
003139 wong tg SEND CSR BIT DEFINITIONS 
000 159 > ze 
169 ; REGISTER (MPR) 
Gs 61 soer cute MULTIPURPOSE REGISTER, (mPRD. 
2004 188 -VIELO Cy eRP gee S : DRIVE STATE 
bod ise <BH, ,M>,- 3 ore _ 
004 165 <HO,.M>,= : HEADS OUI 
Boe tee pi i MEAD SELECT 
09168 <6sk°-w.¢ : DRIVE SELECT ERROR 
004 169 <OSE..M>, ; DRIVE SELEC 
tae Ea <uGe mS, i WRITE GATE ERROR 
Soe 17 <SPE,,M>,- ; SPIN ERRO ad 
004 158 <SKTO, ,M>,- : SEEK TIRE 
bebe <chig 2 RS. : CURRENT HEAD ERROR 
pe ae a os + WRITE DATA ERROR 
0004 176 : <wdE.. [END MPR BIT DEFINITIONS 
Tae 
ot 0 | VAX 8600 STXCS FORRAT 
4 1 $ x 3 
2004 ' § _VIELS <rNe 45 > DISK FUNCTION TO PERS SRM 
' ¢ “IE. ‘m>,- ‘INTERRUPT ENABLE 
; echt tis : AL BLOCK NUMBER 
} ; <ADoR 36>, aie thar ttt 
189 
190 
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00000001 
00000005 


00000000 


ooo 
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; VAX 8600 CONSOLE STXCS STATUS CODES 


TRANS_COMPLETE = 1 
TRANS-CONTINUE = 2 
TRANS “ABORTED 


SSGENF _CODE = 0 
sy 
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sEND RL11/RLO1 REGISTER DEFINITIONS 


re i, 


s TRANSACTION COMPLETED 
CONTINUE TRANSACTION 
TRANSACTI TED 


BORTED = 3 [TRANSACTION ABOR 

ETURNED_ STATUS = 4 SSTATUS RETURNED 

HANDSHAKE_ERROR = “X80 SHANDSHAKE ERROR DURING TRANSACTION 
HW_ERROR = °x81 SHARDWARE ERROR DURING TRANSACTION 

: VAX 8600 CONSOLE STXCS FUNCTION CODES 
NO_OP = 0 ZNO OPERATION 

STATUS RESET = 2 [READ DEVICE STATUS WITH RST ASSERTED 
ABORT TRANSFER = 3 SABORT CURRENT TRANSFER 

READ STATUS = 4 TREAD DEVICE US 
WRITE BLOCK = 5 : E BLOCK OF DATA 

READ_BLOCK = 6 ;READ BLOCK OF DATA 

: INTERRUPT TRANSITION -ZODES 

ITC_DATA = 0 :READ OR WRITE DATA 

ITC"STS1 = 1 [GET CONTROL/STATUS REGISTER 

ITC"STS2 = 2 [GET RL11 MULTIPURPOSE REGISTER 
ITCTABORT = 3 [ABORT CURRENT TRANSFER 

ITC"RESET1 = 4 ‘GET CONTROL/STATUS WITH RST ASSERTED 
ITCTRESET2 = 5 :GET MP REG WITH RST ASSERTED 

> DEFINE THE CASE OFFSETS AS CD*FUNCTION (I.E. CDF_NOP) 


j INITIALIZE 
SUNLOAD VOLUME (NOP) 
TRECALIBRATE (NOP) 


sDRIVE CLEAR (RESET & GET STATUS) 
RELEASE PORT (NOP) 


OFFSET HEADS (NOP) 

RETURN HEADS TO CENTERLINE (NOP) 
PACK ACKNOWLEDGE (RESET & GET STATUS) 
; SEARCH (NOP) 

sWRITE CHECK 

sWRITE DATA 

READ 


sREAD DATA 
sWRITE HEADERS (NOP) 
sREAD HEADERS 

splace holder 

splace holder 

; AVAILABLE 
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rf: .SBTTL STANDARD TABLES 
46 ; 
‘? ; DRIVER PROLOGUE TABLE 
“8 ; THE DPT DESCRIBES DRIVER PARAMETERS AND 1/0 DATABASE FIELDS 
: ; THAT ARE TO BE INITIALIZED DURING DRIVER LOADING AND RELOADING 
5 DPTAB :DPT CREATION MACRO 
00 54 END=CV_END,- SEND OF DRIVER _LABEL 
0 39 ADAPTER= =UBA, - SADAPTER TYPE = UNIBUS 
6 PP AGSEDP T i SYSTEN PAGE TABLE ENTRY REQUIRED 
000 5 UCBSIZESUCBSR CG. _LEN,- LENGTH OF UCB 
: 28 NAME=CVDRIVER™ SDRIVER NAME 
8 60 DPT_STORE INIT START CONTROL BLOCK INIT VALUES 
03 61 DPT-STORE DDB, DDBSL_ACPD, PoNtitit “DEFAULT ACP NAME 
90 F 6¢ DPT“STORE ODB.DDBSL_ACPD+3.8,DDBSK cari jacP CLASS 
043 6 DPT“STORE UCB,UCBS$ 3F 
004 64 DPT“STORE UCB, -UCBSL “DEVCHAR,L.= : DEVICE CHARACTERISTICS 
0047 65 <DEVSM_F : FILES ORI 
047 66 'DEVSM"DIR= : DIRECTORY STRUCTURED 
0047 4 i DEVSMAVL : AVAILABLE 
47 268 i DEVSM“ELG- + ERROR LOGGING 
047 69 i DEVSM"SHR=- t SHAREABLE 
047 0 iDEVSM~1DV- : INPUT DEVICE 
0047 71 iDEVSH_ODV- ; ouTPUT DEVICE 
047 es i DEVSM~RND> ANDOM ACCESS 
004 7 DPT_STORE UCB, OCB$B_DEVCLASS,B,D ., PSK :DEVICE CLASS 
005 7% DPT“STORE UCB.UCBSW ~DEVBUF SIZ. DEF FAULT BUFFER SIZE 
905 75 DPT“STORE UCB,UCB$B_SECTO 46° FNyABER 0 CTORS PER TRACK 
058 276 DPT“STORE UCB.UCB$B~ TRACK 5.645 ;NUMBER OF OrRacKs PER CYLINDER 
OSF 277 DPT“STORE UCB.UCB$B-DIPL,B.21 :DEVICE IPL 
063 28 DPT“STORE UCB,UCBSB-ERTMAX,B,8 :MAX ERROR RETRY COUNT 
0067 0 DPT_STORE REINIT sSTART CONTROL BLOCK RE-INIT VALUES 
0067 1 DPT“ STORE CRB. CRBSL_ INTD+4 Cv, int ap INTERRUPT SERVICE ROUTINE ADDRESS 
6C é DPT“STORE CRB.CRBS C=INTDSVECSLLIN o> CONTROLLER INIT ADDRESS 
$F 4 DPT_STORE CRB, chBSC INTB*VECSL_ UNITINIT,=- iONiT INIT ADDRESS 
O76 6 DPT_STORE DDB, DOBSC "DDT TD CVSDDT ibBT ADDRESS 
oF : DPT_STORE END SEND OF INITIALIZATION TABLE 
0 : 
31 ; DRIVER DISPATCH TABLE 
38 : THE DDT LISTS ENTRY POINTS FOR DRIVER SUBROUTINES WHICH ARE 
94 : CALLED BY THE OPERATING SYSTEM, 
9 ° 
39 DDTAB = ;DDT CREATION MACRO 
38 DEVNAM [NAME OF DEVICE 
9 oe Rte VeTaRTIO, :START 1/0 ROUTINE 
0 00 UNSOL IC=CV_UNSOLNT,= UNSOLICITED INTERRUPT 


a 


es 
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vibe th STANDARD TABLES 6-SEP-1984 353834 DRIVER. SRCICVDRIVER.MAR:2 (4) v04 
1 FUNC TB=CV. FUNCTABLE,- ;FUNCTION DECISION TABLE 
; CANCEL= " CA CEL =NO-OP FOR FILES DEVICE 
REGDMP=CV_REGDUMP,- iRE 6 STER DUMP ROUTINE 
4 DIAGBF=<<CV_NUM REGS*+5+54341>04>,= -BYTES IN DIAG BUFFER 
5 ERLGBF =<<<C0_NUM RReGS*5¢1>94>sEMBSL _BV_REGSAV> ;BYTES IN 
$ SERROR LOG BUFFER 
0 : j DIAGNOSTIC BUFFER SIZE = <<4 4 ALO REGISTER LONGWORDS + 5 UCB FIELD LONGWORDS 
0 ; CSD IAGBUF ILL LONGWORDS 3 BUFFER ALLOCATION 
0 10; Lonceo RDS + 1 LONGWORD FOR # REGISTERS INC ey _REGDUMP> 
1 : 4 BYTES/LONGWORD> 
i ; ERROR LOG BUFFER SIZE = <<<é RLOZ REGISTER LONGWORDS + 5 UCB FIELD LONGWORDS 
038 14; + 1 LONGWORD FOR # REGISTERS IN CV_REGDUMP> 
00 15: * 4 BYTES/LONGWORD> * BYTES NEEDED-FOR ERROR LOGGER 
0038 316: TO SAVE SOF TUARE REGISTERS> 
00 8 317 
0038 318 


ne 
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0 : 
1 j FUNCTION DECISION TABLE 
¢ i 3 THE FDOT LISTS VALID FUNCTION CODES, SPECIFIES WHICH 
4 i CODES ARE BUFFERED, AND DESIGNATES SUBROUTINES TO 
0 5 3 PERFORM BREPROCESSING. FOR PARTICULAR FUNCTIONS. 
3 5 
6 8 CV_FUNCTABLE: 
9 FUNCTAB ,- SLIST LEGAL FUNCTIONS 
0 0 <NOP,- 3 NO- 
0 1 UNLOAD, = ; UNLOAD 
; SEEK,= : SEEK | 
003 DRVCLR,- : DRIVE CLE | 
0 4 PACKACK,= + PACK ACKNOWLEDGE | 
00 § SENSE CHAR, = : SENSE CHARACTERISTICS | 
00 : SETCHAR,= : SET CHARACTERISTICS 
00 SENSEMODE , = + SENSE MODE 
00 8 SETMODE,- : SET MODE | 
003 9 READLBLK,= ; READ LOGICAL BLOCK 
00 40 WRITELBLK,- t WRITE LOGICAL BLOCK | 
00 41 READPBLK,- + READ PHYSICAL BLOCK | 
00 4¢ WRITEPBLK,- : WRITE PHYSICAL BLOCK 
0038 434 READVBLK,- + READ VIRTUAL BLOCK 
0038 44 RITEVBLK,=- : WRITE VIRTUAL BLOCK 
038 345 AVAILABLE,- + AVAILABLE 
0038 346 CCESS,= : ACCESS FILE / FIND DIRECTORY ENTRY 
0038 47 ACPCONTROL,- + ACP CONTROL FUN 
603 48 EATE,= + CREATE FILE ANDSOR DIRECTORY ENTRY | 
0038 349 DEACCESS,- : DEACCESS FILE 
0038 350 ELETE,- : DELETE FILE AND/OR DIRECTORY ENTRY 
0038 = 351 MODIFY,= : MODIFY FILE ATTRIBUTES 
0038 38 MOUNT = : MOUNT VOLUME | 
0038 35 > 
0040 354 FUNCTAB ,- sBUFFERED FUNCTIONS 
0040 355 <NOP,- : NO-OP 
0040 356 UNLOAD, = + UNLOAD | 
0040 357 SEEK, = > SEEK 
040 358 DRVCLR,- : DRIVE CLEAR 
040 359 PACKACK, = + PACK ACKNOWLEDGE 
040 360 SENSE CHAR, = : SENSE CHARACTERISTICS 
0040 361 SETCHAR, = : SET CHARACTERISTICS | 
40 6g SENSEMODE , - : SENSE MODE 
40 6 SE TMODE ,- : SET MODE 
4 64 AVAILABLE, - : AVAILABLE 
0049 65 ACCESS, = > ACCESS FILE / FIND DIRECTORY ENTRY 
04 66 ACPCONTROL,- + ACP CONTROL FUNCTION 
04 6 CREATE,= : CREATE FILE AND/OR DIRECTORY ENTRY 
4 68 DEACCESS,-= : DEACCESS FILE 
4 69 DELETE,- > DELETE FILE AND/OR DIRECTORY ENTRY 
4 0 MODIFY.= : MODIFY FILE ATTRIBUTES 
04 4 MOUNT= : MOUNT VOLUME 
4 ig FUNCTAB CV_ALIGN,- sTEST ALIGNMENT FUNCTIONS 
4 7% <READLBLK,- + READ LOGICAL BLOCK 
4 75 READPBLK,- : READ PHYSICAL BLOCK 
4 76 READVBLK.- : READ VIRTUAL BLOCK 
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FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


> 
+ACPSREADBLK,- 
<REA ° 


WRITELBLK,= 
WRITEPBLK,=- 
SAS TEVOLES 
+ACPSACCESS,- 
<ACCESS,=- 
teneecit 
+ACPSDEACCESS,=- 
SDEACCESS= 
+ACPSMODIFY,=- 
<ACPCONTROL,- 
DELETE,- 
MODIF Y= 


> 
+ACPSMOUNT , = 
<MOUNT = 


> 
+EXESLCLDSKVALID,- 
<UNLOAD,-=- 


AVAILABLE, = 
PACKACK= 


> 
+E XESZEROPARM, - 
<NOP ,- 


> 

+E XESONEPARM, - 
<SEEK= 

+E XESSENSEMODE ,- 
tl 

> 

+EXESSETCHAR,- 
<SETCHAR,= 
SETRODE= 
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H waite LOGICAL BLOCK 

3; WRITE PHYSICAL BLOCK 

; WRITE VIRTUAL BLOC 

;READ FUNCTIONS 

3; READ LOGICAL BLO 

3; READ PHYSICAL BLOCK 

; READ VIRTUAL BLO 

sWRITE FUNCTIONS 

; WRITE LOGICAL BLOCK 

: WRITE PHYSICAL BLOCK 

3; WRITE VIRTUAL BLOCK 

sACCESS FUNCTIONS 

; ACCEESS FILE / FIND DIRECTORY ENTRY 

; CREATE FILE AND/OR DIRECTORY ENTRY 

;DEACCESS FUNCTION 

; DEACCESS FILE 

sMODIFY FUNCTIONS 

; ACP CONTROL FUNCTION 

3; DELETE FILE AND/OR DIRECTORY ENTRY 

; MODIFY FILE ATTRIBUTES 

;MOUNT FUNCTION 

3; MOUNT VOLUME 


ZERO PARAMETER FUNCTIONS 
; NO-OP 

; UNLOAD 

: DRIVE CLEAR 

; PACK ACKNOWLEDGE 

; AVAILABLE 

ONE PARAMETER FUNCTION 

; SEEK 


SENSE FUNCTIONS 
; SENSE CHARACTERISTICS 
; SENSE MODE 


3SET_ FUNCTIONS 
; SET CHARACTERISTICS 
SET MODE 
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STANDARD TABLES 3-8 P=1984 47 DRIVER. SRCICVDRIVER.MAR: 2 
D8 43 ) 
p 4 : ~SBTTL CONTROLLER INITIALIZATION ROUTINE 
D8 «433: 
b ‘ ; : FUNCTIONAL DESCRIPTION: 
D8 4 $ ; THIS ROUTINE IS A NO-OP FOR THE RL11 BUT MUST BE INCLUDED 
p ‘ ; SINCE IT IS CALLED WHEN THE RLO2 IS BOOTED AS A SYSTEM DEVICE. 
p 635 : THE OPERATING SYSTEM. CALLS THIS ROUTINE: 
D8 441: = DURING DRIVER LOADING 
: ry 3 = DURING RECOVERY FROM POWER FAILURE 
Dg 44 : INPUTS 
D8 446: RG = CSR ADDRESS (DEVICE CONTROL STATUS REGISTER) 
D8 447: RS 1DB ADDRESS (INTERRUPT DATA BLOCK) 
9 6 ; ALL INTERRUPTS ARE LOCKED OUT 
9p 430 : OUTPUTS: 
0D 43¢ : CONTROL IS RETURNED TO THE CALLER. 
O08 453: 
gh ag 
00D 436 CV_RL11_INIT: ZCONTROLLER INITIALIZATION 
05 0008 45 RSB SRETURN TO CALLER 


Uy 
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33 459 .SBTTL UNIT INITIALIZATION ROUTINE 
8 io) Fr 
3 ces ; CV_RLOX_INIT = UNIT INITIALIZATION ROUTINE 
09 465 5 i FUNCTIONAL DESCRIPTION: 
09 rs : THIS ROUTINE READIES THE RLO2 UNIT FOR I/O OPERATIONS. 
D9 46 : THE OPERATING SYSTEM CALLS | THIS ROUTINE: 
D9 $f T SYSTEM STA 
D9 «471: - DURING BRIVER TL ADI NG 
94 r¢! 3 = DURING RECOVERY. FROM POWER FAILURE 
D9 474 : INPUTS: 
09 «475: 
009 476: R4 = CSR ADDRESS (co ONTROLLER STATUS REGISTER) 
908 47 ; RS = UCB ADDRESS (UNIT CONTROL BLOCK) 
ong 479 : OUTPUTS: 
0009 481: THE DRIVE UNIT IS RESET, UCB FIELDS ARE INITIALIZED, AND THE 
00094 : ; ROUTINE WAITS FOR ONLINE UNITS TO SPIN UP. ALL REGISTERS 
0009 483: EXCEPT RO-R3 ARE PRESERVED. 
009 484; 
009 485 :-- 
009 4 
00D9 487 CV_RLOX_INIT: :RLOT/RLO2 UNIT INITIALIZATION 
0810 8F AA 00D9 488 BlCw2 ¥#<UCBSM ONL INE !UCBSM_ VALID>, - ;ASSUME 0 ineviay ALID 
64 AS opp 489 UCBSW_STS(R5) i 
2324c002 BF D0 OODF 491 MOVL #*x2324C002.- ;SET MEDIA IDENT "DL RLO2" | 
008C¢ cs ES 49 UCBSL maedee: ID(RS) | 
A 90 0068 49 MOVB Ss epTs R 2 :SET RLO2 DEVICE TYPE | 
41 AS EA 49% $8 _pEVTYPE (RSS 
46 AS 9 00 8F 90 € 495 #512 sts CYLINDERS | (R5);:SE1 NUMBER oF m.02 CYLINDERS 
0080 ¢5 BF 3C «(O0F2 «649 MOVZWL #2046 ycast LMAXBLOCK(RSS;: SET MAX RL K NUMBER 
F 10 O0F9 49 BSBB 6 ONSOLE RL Ora 
0650 00 €1 OOFB 49 BBC Sty ~ef : Bp DY,RO,40$ BRANCH IF READY 
64 AS 0800 F AB OOFF 49 B1SW PUCBSAT “VALID ,UCBS$wW STs¢ $(R5) sYES, SET VOLUME VALID 
6445 10 A 105 00 408: BI Su #UCBSM “ONLINE -UCBSO’S TS(R5):SET UNIT ONLINE 
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DRIVER SPECIFIC SUBROUTINES SEP=1984 DRIVER. SREICVDRIVER.MAR: 2 ) 
A ; .SBTTL ORIVER SPECIFIC SUBROUTINES | 
A 5 ; CVC_GETSTS = GET STATUS FOR VAX 8600 CONSOLE RLO2 WITHOUT INTERRUPTS 
A $ > INPUTS: | 
A o ; oe | 
A 1 + OUTPUTS: 
10A i : RO = 0 I FAILED TO GET STATUS 
! - 1 : = RLO2 CONTROL STATUS REGISTER 
A 18 : R1 = RLOZ MULTIPURPOSE REGISTER (UNUSABLE IF RO=0) 
10A 18 tve -GETSTS: 
52 DD 010A 51 PUSHL R2 :SAVE R2 
gp 10 010¢ 0 BBB 1008 i READ CONTROL STATUS REGISTER 
0 oD 01 1 PUSHL RO AV 
09 19 11 ; $88. ~=s«41008 READ UL TIPURPOSE REGISTER 
51 50 00 011 MOVL _—RO, RI i POSITION MULTIPURPOSE REGISTER 
50 BED0 011 4 POPL 0 RESTORE csr 
04 BA 118 5 POPR #*M<R2> SRESTORE R2 
ta 2 oo 
0000006C BF 02 DA O11 ; 100$: #STATUS RESET .#P WPRS_STXCS :REQUEST READ STATUS 
1 TIME DWALT TINE =26 
1 0 INS 1=<MFPR ORs STxCs, R2> - ;READ STATUS 
1 1 INS 2=<BBS #STXES VAR rd,140$> ;BRANCH IF READY 
OS O14F : RSB Ongo ote NEVER GOT READY (TIMEDWAIT 
150 «EC EARS RO_ON FALL-OU 
SE 04S 0130 4 140$: ADDL2 #4,SP [CLEAR TIMEDUAIT § COUNTER FROM STACK 
50 00000040 8F be 0135 5 3 FPR #PRS_STXDB,RO SOBTAIN STATUS FROM CONSOLE 
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boas) FDT ROUTINE = #000 TOASTER BYTE COUNT A Feet setts 9 13:98:47 | YORIVER. SRCJCVDRIVER.MAR:2o ld) 
8 38 .SBTTL FOT ROUTINE = TEST TRANSFER BYTE COUNT ALIGNMENT 
WB igi 
& 4 > DL_ALIGN = FDOT ROUTINE TO TEST XFER BYTE COUNT 
8 44 t FUNCTIONAL DESCRIPTION: 
158 «546: THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER 
158 «547: TO CHECK THE BYTE COUNT PARAMETER SPECIFIED BY THE USER PROCESS 
3 ‘ : FOR AN EVEN NUMBER OF BYTES (WORD BOUNDARY). 
8 1 > INPUTS: 
158 : : R3 = IRP ADDRESS (1/0 REQUEST PACKET) 
158 3 ; Re = PCB ADDRESS (PROCESS CONTROL BLOCK) 
158 4: RS - UCB ADDRESS (UNIT CONTROL BLOCK) 
158 «555: R = CCB ADDRESS (CHANNEL CONTROL BLOCK) 
158 36 : R - BIT NUMBER OF THE 1/0 FUNC TON CODE 
158 «557: RB = ADDRESS OF FDT TABLE ENTRY FOR THIS ROUTINE 
138 38 : 4(AP) = ADDRESS OF FIRST FUNCTION DEPENDENT Q10 PARAMETER 
138 60 : OUTPUTS: 
158 6¢ : If THE Q10 BYTE COUNT PARAMETER IS ODD, THE 1/0 OPERATION IS 
158 «563: TERMINATED WITH AN ERROR. IF IT IS EVEN, CONTROL IS RETURNED 
158 «564: TO THE FDOT DISPATCHER. 
158 65 ; 
158 4] joo 
158 (56 
158 568 CV_ALIGN: :CHECK BYTE COUNT AT P1(AP) 
138 69 LBS 4 (AP), 108 tIF LBS = ODD BYTE COUNT 
15F 0 RSB [EVEN = RETURN TO CALLER 
160 71 10$: MOV ZWL #SS$_IVBUFLEN,RO SET BUFFER ALIGNMENT STATUS 
16 72 G*EXESABORTIO- :ABORT 1/0 
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he START 1/0 ROUTINE pans oats 9 $3:93:7} DRIVER. SRCICVDRIVER.MAR; 2 aD 
| 168 if ~SBTTL START 1/0 ROUTINE 
| eh 
168 28 ; CVSTARTIO = START 1/0 ROUTINE 
168 p > FUNCTIONAL DESCRIPTION: 
168 : : THIS FORK PROCESS IS ENTERED FROM THE EXECUTIVE AFTER AN 1/0 REQUEST 
168 33 PACKET HAS BEEN DEQUEUED, AND PERFORMS THE FOLLOWING: 
168 5: = ACTIVATES THE CONSOLE AFTER SETTING UCB FIELDS, AND OBTAINING 
168 § ; CONTROLLER RESOURCES 
168 8 ; = WAITS FOR AN INTERRUPT 
168 0: = REGAINS CONTROL AFTER THE ISR SERVICES THE INTERRUPT, AND 
168 464591; = RE-ACTIVATES THE CONSOLE IF THE ORIGINAL FUNCTION 
168 36 ; S A RETRIABLE ERROR 
168 464593; - COMPLETES THE 1/0 REQUEST BY RELEASING RESOURCES 
168 94 ; SETTING STATUS CODES, AND RETURNING TO THE EXECUTIVE. 
168 % > INPUTS: 
168 598; RS - IRP ADDRESS (1/0 REQUEST PACKET) 
168 399 : R - UCB ADDRESS (UNIT CONTROL BLOCK) 
168 601 : OUTPUTS: 
168 603: RO - FIRST 1/0 STATUS LONGWORD: STATUS CODE & BYTES XFERED 
168 606 ; R1 - SECOND 1/0 STATUS LONGWORD: © FOR DISKS 
168 606 : THE 1/0 FUNCTION IS EXECUTED. 
168 608 : ALL REGISTERS EXCEPT RO-R4 ARE PRESERVED. 
168 609 ; 
gent 
168 61¢ CV_STARTIO: ;START 1/0 OPERATION 
168 614 : PREPROCESS UCB FIELDS 
168 616 PREPROCESS: 
168 ei > Convert the physical media address in IRPSL_MEDIA to an LBN. 
168 619 ; This is necessary because the console RLO2 controller expects an LBN, 
1e8 ? , ; not a physical media address. The LBN is given by the formula: 
168 6 g ; LBN = (CYLINDER®(TRACKS/CYLINDER) ¢+TRACK) ®(SECTORS/TRACK) ) +SECTOR 
38 AS) «(DO «0168 «628 MOVL §IRPSL_MEDIA(R3),- :Copy media address to UCB 
CC IGF 6 5 UCBSL-MEDIA(RS) : 
53 C pe : § MOVAL UCBSL_MEDIA(RS),R3 Get address of media address 
A 126 6 MOVZBL (R3)4°R :Get SECTOR 
A O17 : MOVZBL (R3)4,R :Get TRACK 
£ C 017¢ MOV2WL (R3)+,-(SP) :Get CYLINDER 
ba e ,ve 
53 45 A A O17F 0 MOVZBL UCBS$B_TRACKS(RS) ,R3 Get TRACKS/CYLINDER 
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MULL ($P)+ RS gR3 = C#(T/C) 
ADD r3,R1 tR1 = Cect/C) et 
MOVZBL 56. SECTORS(RS) ,R3 iGet SECTORS/TRACK 
MULL OR tR1 = (Ce(T/C)4T) #(S/T) 
ADDLS R1.RO,UCBSL_MEDIA(RS) :CALULATE AND STORE LBN 
move UCBSL_MEDIATRS) UCBSL_CV_LBN(RS) ;SAVE STARTING LBN FOR RETRIES 
MOV UCBSB- RIMAX (RO i TINITIALIZE ERROR RETRY COUNT 
UCBSB-ERTCNT(R5) me 
MOVL  UCBSLTIRP(RS) RS “GET IRP ADDRESS 
MOVW  IRPSWFUNC(R3S ,UCBSW_FUNC(RS) SAVE FUNCTION CODE 
EXTZV #IRPSO_FCODE,- ggxtRact 1/0 FUNCTION CODE 
siRPSs FCODE, IRPSW_FUNC(RS) RI ;... 
mOVB oR ycese FexiR9) sSTORE FUNCTION DISPATCH INDEX 
MOVO  UCBSL_SVAPTE(R5) ,- :SAVE TRANSFER PARAMETERS 
UCBSO~CV_BDAT(RSS 
BICW2 #UCBSA_DTAGBUF,- 
ucB gPevstsins) :CLR DIAGNOSTIC BUFFER PRESENT 
BBC aires = NO DIAG BUFFER 
IRPSW erst " Ebrs 
BISw2 #uUCBSA_DIAGBUF, yeast. TOW i tasy :SET DIAG BUFFER PRESENT 


CENTRAL FUNCTION DISPATCH 
FDISPATCH: 


T THE BLOCK IN ERROR. 


HENC 


FUNCTION DISPATCH 


RETRY LOGIC I$ DONE BY RESTARTING THE ENTIRE TRANSFER, RATHER THAN 
WE RESTORE TRANSFER PARAMETERS HERE 


MNEGW —UCBSW_BCNT (RS) ,UCBSW_ BCR(RS) : INIT NEG BYTES LEFT TO XFER 
mova CB$SQ-CV_BDAT(RS) ,- RESTORE TRANSFER PARAMETERS 
CBSL~SVAPTE (RS) 
MOVL UCBSL-CV_LBN(R5) ,UCBSL ‘ nnaiet ;RESTORE STARTING LBN 
MOVL  UCBS IRPCRS) , R3 GET IRP ADDRESS 
BBS #iRP P$o_P tabs IF SET = PHYSICAL 1/0 FUNCTION 
IRPSW sretk )°108 
BBS byces0 VALI ii "SET = VOLUME SOFTWARE VALID 
BSW. STS(RSS, 10S Sees 
MOVZWL #SS$_VOLINV,RO [SET VOLUME INVALID Status 
RW serHre SRESET BYTE COUNT AND EXIT 
MOVZBL UCBS$B_FEX(RS),R3 [GET FUNCTION DISPATCH INDEX 
CLRW = UCBSB~CV V STATE CRS) [CLEAR INTERRUPT STATE AND STATUS 
CLRL UcBSL- CV~BUFWIN(RS) [CLEAR BUFFER WINDOW 
CASE [DISPATCH TO FUNCTION HANCVING ROUTINE 
NO 3; NOP 
UNLOAD, = + UNLOAD 
+3 le ¢ REEALIBRATE ( ted) 
ad 3 unsupporte 
DRVCLR,- > ORV 
NOP ,- ; RELEASE PORT (unsupported) 
NOP ,- 3; OFFSET HEADS syneyeoer rted) 
NOP ,- ; RETURN TO crete (unsupported) 
PACKACK, - + PACK ACKNOWLEDGE 
: Th; Lyneupper ted? 
URI TE CuEce, - : WRITE CHECK (unsupported) 
WRITE DATA,- t WRITE DATA 
READDATA, = > READ DATA 
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PACKACK: 


READDATA: 
WRITEDATA: 
BSBW 


RETRYERR: 


FATALERR: 


Oe 


BEBE AAALAC POPUNINPINIPINININDS OO OO Ot Os 


PA 0 OBO ME AN 8 OD NAN EWN "9 ODO UE WW OOO NOU EW O 


$90 CONSOLE DISK hive 


-BYTE 
OPERATON COMPLETION 


— 
oOo 
bed 
3 
~ 
c 
rc 


NOP, = 
NOP, = 
NOP; = 


NOP, = 
AVALLABLE= 


UCBSB_FEX(RS) 
FEXL 
RETRYERR=.-1 
NORMAL 


#UCBSM VALID - 
UCBSW_STS(R5S 
DO_FUNCTION 


#UCBSR VALID 
UCBSW.STS(RSS _ 
NORM maC 


#CV_M_RD,UCBSB_CV_ srscrsis 


FEXL 
RETRYERR=.=1 


#SS$_AORMAL ,RO 
FUNCRT 


RTCNT(RS) 


ucB$B_E 
FATALERR 
FDISPATCH 


#SS$_VOLINV 


ucesc CV watts R1 
#CV_AP_VVC,R2,FUNCXT 


gees ee RO 


V_AP_V_WL,R2, 108 
atv" “mP7V “Uce” RO, FUNCKT 


#SS$_PARITY,RO 


15-SEP=1 
6-SEP=1 
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: WRITE HEADER (unsupported) 
: READ HEADER 

3; place holder 

: place holder 

; AVAILABLE 


3;NO-0P 
{WRITE CHECK 
[DRIVE CLEAR (GET STATUS & RESET) 


SET FUNCTION 

EXECUTE FUNCTION 

in y OFFSET 
DONE 


;PACK ACKNOWLEDGE (GET STATUS . RESET) 
:Set software volume valid bit 


:Then go do hardware function. 


; UNLOAD 

S AVAILABLE 

:Clear software volume valid bit. 
and go complete operation without 
zsany hardware interaction. 


EAD DAT 
SET TREAD FLAG 


core FUNCTION 


wait 
EXE 
SERROR OFFSET 


+ SUCCESSFUL OPERA 
NORMAL wt 


:FUNCT ION EXIT 


sRETRIABLE ERROR 
sANY RETRIES LEFT? 


z1F EQL = NO 
RETRY FUNCTION 
leer Covenens ERROR 
ASSUME ya INVALID STATUS 
1 AND MP IN R2 


GET CS IN 
:IF SET = VOLUME INVALID 


SUME WRITE LOCK grace STATUS 

CLR - VOLUME NOT WRITE LOCKED 
SET = WRITE GATE ERROR 
Wi © WGE SET - WRITE LOCK ERROR 


ASSUME PARITY ERROR STATUS 
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BBS 


BBC 
BBS 


RELCHAN 
CLRL 
POPL 
REQCOM 


r -00 Pa 17 
-SEP-19 DRIVER. SRCICVDRIVER.MAR; 2 “ (11) 


#CV_CS_V_CRC,R1,FUNCKT ;1F SET = CRC ERROR 

[OR DATAPATH PURGE ERROR 
#CV_CS_V_OPI,R1,208 [HEADER NOT FOUND ERROR? 
@CVICS"V=CVT,RI,FUNCXT SIF OPI AND CVT SET = YES 


#sss DRVERR.RO ZASSUME DRIVE ERROR STATUS 
@CV_CS_V_DE,R1,FUNCXT  ;1F SET = DRIVE ERROR 


#SS$_CTRLERR,RO sASSUME CONTROLLER ERROR STATUS 


sFUNCTION EXIT 
;SAVE FINAL REQUEST STA 


RO ; Tus 

G*10C$D LAGBUF ILL sFIbL DIAGNOSTIC BUFFER IF PRESENT 
f DF WRITECHECK ,UCBSB_FEX(R » ag eRIVE RELATED FUNCTION? 
#CDF AVAILABLE UCBSB_FEX(RS) | :DRIVE RELATED FUNCTION? 
UCBSL_IRP(RS) ,R3 TRETRIEVE ADDRESS OF IRP 
UCBSW~BCR( SCALCULATE BYTES TRANSFERRED 


BCR(RS) .- 
IRPSWBCNT(R3S,2(SP) 3... 
[RELEASE CHANNEL IF OWNED 


CLEAR SECOND STATUS LONGWORD 
RETRIEVE FINAL REQUEST STATUS 
;COMPLETE REQUEST 
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Ries START 1/0 ROUTI NE Fatt} 8:4 :11 CDRIVER.SRCICVDRIVER.MAR:2 lf, 
ce 1 
cé fe : 
| cf by : FEXL = RL11 HARDWARE FUNCTION EXECUTION 
C8 775 : THIS ROUTINE IS CALLED VIA A BSB WITH A BYTE IMMEDIATELY FOLLOWING 
| C8 176 : SPECIFIES THE ADDRESS OF AN ER ROR ROUTINE. ALL DATA IS ASSUMED TO HAVE "REEN 
C8 777; SET UP IN THE UCB BEFORE THE CALL. THE APPROPRIATE PARAMETERS ARE LOADED 
ce 178 : INTO THE CONSOLE STXCS AND THE 7 UNCTION IS INITIATED. THE RETURN ADDRESS 
Cé a : 1S STORED IN THE UCB AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE | 
ce g 0 3 INTERRUPT OCCURS, CONTROL IS RETURNED TO THE CALLER. | 
cf , 3 INPUTS: | 
ce , 4 RS = DEVICE UNIT UCB ADDRESS | 
cB 7 g : O(SP) = RETURN ADDRESS OF CALLER 
ce ? ; 4(SP) = RETURN ADDRESS OF CALLER'S CALLER | 
ce 7 } ; IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A BYTE WHICH CONTAINS 
ce 790 : A BRANCH DESTINATION TO AN ERROR RETRY ROUTINE. | 
cf 798 : OUTPUTS: 
ce 29% : THERE ARE FOUR EXITS FROM THIS ROUTINE: | 
; r. | 
(8 4796: » SPECIAL CONDITION = THIS EXIT IS TAKEN IF A POWER FAILURE OCCURS | 
0 C8 «797: OPERATION TIMES OUT. IT IS A JUMP TO THE APPROPRIATE 
(8 «798: ORROR ROUTINE. IN THE CASE OF A POWER FAILURE alte RETR 
0208 799: COUNT 1S RESET AND RETRIES INITIATED. IN THE CASE OF 
CB 800 : TIMEOUT, THE RETRY COUNT IS DECREMENTED AND RETRItS INITIATED 
ce 4 ; IF RETRIES REMAIN. 
C8 «B03: 2. FATAL ERROR © THIS EXIT IS TAKEN IF A FATAL CONTROLLER OR DRIVE 
Cé 4: ERROR OCCURS OR IF ANY ERROR OCCURS AND ERROR RETRY IS EITHER 
Cé 5: iNMIBITED OR EXHAUSTED. IT IS A JUMP TO THE FATAL ERROR EXIT 
ce 06 ; ROUTINE. 
if O8 : 3. RETRIABLE af nro - THIS EXIT IS TAKEN IF A RETRIABLE CONTROLLER 
C8 «809 : OR DRIV VE ERROR OCCURS AND ERROR RETRY IS NEITHER INHIBITED 
cé 19 : NOR EXH AUST ED, IT CONSISTS OF TAKING THE ERROR BRANCH EXIT 
(8 «B11: SPECIF IED THE CALL SITE. RETRIES ARE ACCOMPLISHED BY 
Ce I : RESTARTIN NGA THE ENTIRE 1/0 OPERATION, RATHER THAN AT THE 
cf 13 ; BLOCK IN ERROR. 
(8 «BIS: 4. SUCCESSFUL OPERATION = THIS EXIT IS TAKEN IF NO ERRORS OCCUR 
cf 1 ; DURING THE OPERATION. IT CONSISTS OF A RETURN INLINE. 
cf 18 ; IN ALL CASES If AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 
cf p : IN ALL CASES FINAL DEVICE REGISTERS ARE RETURNED VIA THE UCB. 
cf 5 ; UCBSW_BCR(RS) = NEGATIVE BYTES REMAINING TO TRANSFER 
Cé 4 fex: s FUNCTION EXECUTOR 
009C C5 BED Cé 5 POPL  UCBSL_DPC(R RS) [SAVE DRIVER 
50 36 ASOD C 6 MOVL  UCBSL“CRB(R [GET ADDRESS OF Sai haRY CRB 
1 ao OD D § MOVL tReSt INTD* veese _1DB(RO);R1 GET ADDRESS OF IDB 


06 64 AS OS 

008D 
0ODD C5 = 02 
000c ¢5——s «01 


50 44 BF 
0000004C 8F 50 


0065 
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START 1/0 ROUTINE Hits 1 % 43:47 DRIVER. SRCICVDRIVER.MAR; 2 9 id) 
D1 D CMPL Rs 1DBSL_OWNER(R1) ;DOES THIS PROCESS OWN CHANNEL? 
BNEO F NEQ = NO 
p MOVL JDBSL_CSR(RT) RG SET ASSIGNED CHANNEL CSR ADDRESS 
: 10$:  REQPCHAN TREQUEST CHANNEL (RETURNS RG = CSR ADR) 
91 OE 208: CMPB R3,#CDF_SEARCH ; TRANSFER FUNCTION? 
1A t BGTRU XFER [BRANCH IF YES 


IMMEDIATE FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 
NO OPERATION, 


DRIVE CLEAR, AND 
PACK ACKNOWLEDGE 


OOOCOOOOOCOOCOCOOOOCOO 
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ovoV7g 
2D | BO OO OO - 9999999989 WWWWWWWWVAI9 AIT OC oomnw 
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E 
E 
E 
E 4 
E 4 
E 4 
E 4 
E 4 
E 4 INPUTS: 
: 4 RS = UCB ADDRESS 
E 4 FUNCTIONAL DESRIPTION: 
E 50 : INTERRUPTS ARE LOCKED out. THE APPROPRIATE FUNCTION IS INITIATED WITH 
E 3 INTERRUPT ENABLE, AND A WAITFOR INTERRUPT AND KEEP CHANNEL IS EXECUTED. 
E 5 
0 E 54 IMMED: : IMMEDIATE FUNCT ION EXECUTION 
E 5 DSBINT ISABLE INTERRUPTS 
£1 0 F 3 BBC #UCBSV_POWER ,UCBSW_ srsiré) 20$ $ ;BRANCH iF NOT POWERFAIL 
31 0 F 3 BRW RETREG ‘PROCESS POWER FAILURE 
88 F 60 20$: B1SB2 #CV_M_STSONLY,UCB$B_CV_STS(RS) :REQUEST STATUS ONLY 
0 6 MOV #itt_S1s1,uce$e cv STATE (RS) :SET STATE 10 GETSTS1 
9A 030 6 MOVZBL #<RERD stat Us!s STXCS_M_I gLOAD THe FUNCTION 
DA 030 6 MTPR six¢ Fac auEst TUS 
031 64 WF IKPCH REtREG 9 ieee for. a ing... ;WAITFOR INTERRUPT 
031 65 1OF ORK SRETURN FROM ISR- 
0 : 66 SCREATE FORK PROCESS (8JSB BACK TO ISR) Mai 
31 0 6 BRW RETREG : rt 
“$; 
To 
23 
Th 
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V04= START 1/0 ROUTIN 6-SEP=1984 16:33:11 CDRIVER.SRCICVDRIVER.MAR; 2 (14) 
4 9; | 
| 4 19 : TRANSFER FUNCTION EXECUTION 
4 i : FUNCTIONS T¥CLUDE: 
| 4 87%: WRITE DATA | 
4 875: READ DATA 
4 mG: 
4 877 : INPUTS: 
4 878: RG - DEVICE CSR ADDRESS | 
0 4 4 : RS = UCB ADDRESS 
: 4 1; FUNCTIONAL DESCRIPTION: | 
0324 j THE TRANSFER PARAMETERS ARE LOADED INTO THE CONSOLE REGISTER, 
0324 4 : INTERRUPTS ARE LOCKED OUT, THE FUNCTION JS INITIATED, AND | 
03 4 85 : A WAITFOR INTERRUPT AND UREEP CHANNEL IS EXECUTED. 
a3 4 887 : UPON RETURN FROM THE INTERRUPT SERVICE ROUTINE, THE TRANSFER WILL | 
bs : +t ; EITHER BE COMPLETE OR AN ERROR WILL HAVE BEEN DETECTED. | 
0324 890 ° 
03 4 31 XFER: ; TRANSFER FUNCTION EXECUTION 
03 4 835 > EXECUTE THE TRANSFER FUNCTION 
03 4 835 : DSBINT 
06 64 AS 05 €1 O32A 896 BBC #UCBSV_POWER,UCBSW_STS(R5),20$ ;BRANCH IF NOT POWERFAIL 
03 F 897 ENBINT 
0054 «31 03 : 98 BRW RETREG 
te 900 : SET UP CONTENTS OF STXCS AND SET MOVE ROUTINE ADDRESS 
o338 01 : FOR USE IN INTERRUPT ROUTINE 
53 46 BF O9A § 3 903 50$:  MOVZBL #<READ BLOCK STXCS_M_IE>, 3 : ASSUME READING 
S50 00000000'GF 9E& 0339 904 MOVAB G*IOCSAOVT ER RO OUTINE ADDRESS 
0B 0900 CS. 00-Ss«sEO «(0340 = s-4905 BBS #CV_V_RD Uces tv_s sTs(RSS. Wi BRANCH IF READING 
ei BF 9A 0346 906 MOVZBL #<uRITE BLOCK: STxCS_M_1E> SET FOR WRITING 
grongs OO'GF 9 4A 907 MOVAB g-10¢s OCSAOVE USER, RO MOVE ROUTINE ADDRESS 
odbe ¢ 0100 8F B 51 908 40$: MOVW #256 ty BBC (RS) Se! WORD COUN 
cS 50 «0 38 909 MOVL utes. to CMURTIN(RS) SAVE MOVE ROUTINE ADDRESS 
SD git > SET LBN INTO R3 
53 10 08 ooBc cS FO 2p 38 ‘ INSV _—UCBSL -REDIA ) ,MSTXCS -V ADRS .#STXCS S_ADDRS.R3 
50 43 AS 3C 0364 914 MOVZWL y BSW BC NT > 8 TGET BYTE COUNT OF TRANSFER 
50 00000200 8F C6 68 915 DIVL 24k [COMPUTE # BLOCKS | 
C 6 gi ADDL £3.86 ‘THROW IN 2 EXTRA FOR GOOD LUCK | 
0000004C &F DA 91 MTPR 3, #PRS_STXCS TREAD/WRITE REQUEST | 
79 «4918 [ISR WILL NOT RETURN UNTIL COMPLETE 
79 «919 [TRANSFER DONE OR ERROR DETECTED. 
79 920 WFIKPCH RETREG,RO SWAITFOR INTERRUPT KEEP 
921 [RETURN HERE FROM ISR SAVING REGISTERS 
9 é 1OF ORK *CREATE FORK PROCESS (RETURN T 
4 3 ? RETURN HERE FROM ISR REI ROUTIN 
9 925 : GET STATUS AND RESET ERRORS 
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AX/VMS Macro Vv04-00 


Page ¢ 
START 1/0 ROUTINE 6-SEP-1984 DRIVER. SRCICVDRI IVER.MAR; 2 (14) 
; ; 3 RETREG: 7GET STATUS AND RESET ERRORS 
3 3 : : DETERMINE EXIT = SPECIAL CONDITION, FATAL ERROR, RETRIABLE ERROR, OR SUCCESS 
9 931° SETIPL UcBSB_ FIPL(RS) jENSUR : AT FORK I 
E4 9 g BBSC 3 aCV V~STSERROR gycbss. Cv S13(R3) f° 0$ ‘SRANCu IF GETSTS ERROR 
Fs 3 9 BBSC #CV~V"ABOR B58 Cy V~STS(R5),2 jBRANCH F Ase SAID TO ABORT 
1 0399 934 CMPB BSB Cv OTAYECR ¥,aTTC st 52° 2OID ay TUS? 
12 O39& 935 BNEQ ;NO MUST T BE Se leRFAIL OR TIMEOUT 
7D O3A0 9 6 MOVO UCBs _C\ CV_CS(RS) .RO GEf CS AND MP REGISTER i. IN RO/R1 
ED O3A 3 CMPZV HEAD s. BRUSHES, STATE 0 
AA 8 eety. an A. _BH!CV_MP_M_ site 
13 O3AA «939 ee iif E NLINE 
AA O3AC 940 BICW2 #UCBSM_TIMOUT,UCBSW_ sTS(R ) AELEAR ES. OL TIME OUT 
3¢ B2 941 MOVZWL #SS$_MEDOFL,RO sSET MEDIUM OFFLINE STATUS 
1 038 4g BRW FU Rh 
B3 038A 943 208:  BITW  #UCBSM_POWER!- “POWER FAIL OR DEVICE TIMEOUT? 
03¢0 944 CBSM_ MeTROUT: UCBSW_STS(R5) bar’ 
13 03C0 945 BEQL zI1F NO 
3} O3¢e 46 BRW SPECOND its’ - | SPECIAL CONDITION 
EO O3¢5 948 30$: BBS #CV_MP_V_VC,R1,200$ s1F SET - VOLUME INVALID 
E1 0309 949 BBC #CV"CS"V~CE.RO, 100$ SIF CLEAR RL11 OK 
16 O3CD 950 408: JSB G*ERLSDEVICERR ALLOCATE AND FILL ERROR MESSAGE BUFFER 
60 9203 951 BBS #10$V_INHRETRY,UCBSW_FUNC(R5S),200$ ;IF SET - RETRY INHIBITED 
D 309 93¢ MOVQ UCBSL~CV_CS(R55,RO :GET CS AND MP REGISTERS IN RO/R1 
£0 0 DE 95 BBS CV_CS_V“NXM,RO,200$ | :IF SET = NONEXISTENT MEMOR 
E1 O3E 954 BBC #CVCS"V~DE 0, 80$ SIF CLR = NO DRIVE ERRORS 
E1 0366 955 BBC #CVIMP-V—WLR1 60S SIF CLR = NOT WRITE LOCKED 
EO O3EA 956 BBS CV"MP"V"WGE,R1,200$ IF WL & WGE SET - WL ERROR 
B83 FE 957 60$: BiTw  #<C0_MP_A woE!- [WRITE DATA ERROR, OR 
O3F 958 V_MP_M_CRE!- CURRENT HEAD ERROR, OR 
O3F3 «©9559 CVMP"M~WGE i= [WRITE GATE ERROR, OR 
O3F3 960 CV"MP"M~DSE>,R1 [DRIVE SELECT ERROR? 
12 8 re +4 BNEQ 2008 :1F NEQ = YES 
O33 $08 : RETRIABLE ERROR EXIT 
98 Sere 965 80S: CVTBL @UCBSL_DPC(RS),-(SP) :GET BRANCH DISPLACEMENT 
CO O3FA 966 ADDL2  (SP)+,0CBS$L_DPC(R5) SCALCULATE RETURN ADDRESS - 1 
gu 968 $ SUCCESSFUL OPERATION EXIT 
06 FF 388 100$: INCL UCBSL_DPC(RS) ZADJUST TO CORRECT RETURN ADDRESS 
1 103 4 JMP @ucesC_DPC(RS) RETURN TO DRIVER 
407 338 + FATAL ERROR EXIT 
407 998 S008: 
10 407 976 "  BSBB = ABORT_RESET_STATUS :D0 AN ABORT AND RESET STATUS 
31 4 9 97 BRW FATALERR SFATAL ERROR EXIT 
EE $78 : ISR DETECTED ERROR. TELL CONSOLE TO ABORT, AND TRY AGAIN IF WE CAN 
10 040¢ $41 240$:  ®8SBB § ABORT_RESET_STATUS ;ABORT AND RESET STATUS 
11 Be 982 BRB nit [TRY AGAIN IF RETRIES LEFT 


2 ee ee 


D 
CVDRIVER = VAX/VMS VAX 8600 CONSOLE DISK oRiver 15=SEP= p-1984 93: 43:4 AX/VMS Macro V04-00 
V START 1/0 ROUTINE 6-SEP-19 DRIVER. SRCICVDRI IVER.MAR; 2 
41 3; 
41 4 : CONSOLE REPORTED ERROR DURING GET STATUS INTERRUPT 
6A 610 «041 : 2608: BsB8 RESET. STATUS_ONLY :RESET STATUS ONLY 
£1 (11 ate 9 , BRB STRY AGAIN IF RETRIES LEFT 
6 ; 9 : SPECIAL CONDITION EXIT (POWER FAILURE OR DEVICE TIMEOUT) 
414 931 §PE COND 
28 64 AS 05 €0 416 93¢ BBS #UCBSV_POWER,UCBSW_STS(R5) ret ped ite Inzout FAILURE 
9000 09" F 16 0419 99% JSB futpsnr tA MO jL06 DE DEVICE TIMEOUT 
64 A 40 8F AA O41F 995 BICw2 » Timout CBSw_ sTsch LEAR TIMEOUT STATUS 
50 2¢ F 3¢ 425 99 MOVZWL UT ag. SET bevice TIMEOUT 
OCS 97 042A 99 DECB ue ate Tut ee tANY ERROR RETRIES REMAINING? 
5 13 «(04 998 BEQL  $RESETRFR SIF EQL = NO 
1 10 04 999 BSBB ABORT RESET STATUS SABORT AND RESET STATUS 
F097 «31 ° 1991 BRW FOISPATC RETRY FUNCTION AGAIN 
Oe 2 1 0¢ RESETXFR: ;RESET TRANSFER BYTE 
2c 10 0435 100 BSBB © ABORT_RESET STATUS SABORT TRANSFER AND RESET " status 
53 58 a3 D0 04 ? 1004 MOVL UCBSL~IRP(RS5),R3 :GET ADDRESS OF 1/0 P 
00co (5) «32: a3—s—s AE.s«éO0K 3B SOC1005 MNEGW OPS “BENT (RSS UCBSW. BCR(RS) ;RESET BYTE COUN 
FES1 = 31 0441 1008 BRW FUNCXT sEXIT 
444 1008 PWRFEAIL: -POWER FAILURE 
64 AS 20 AA 0444 1009 BICW2 #UCBSM_POWER,UCBSW_STS(RS5) ;CLEAR POWER FAILURE BIT 
19 10 0448 1010 SBB ss ABORT "RESET $1 TATUS~ s ABORT D RESET STATUS 
GGA 1011 RELCHAN tRELEASE. CHANNEL IF “OWNED 
53 58 as 00 450 1 1 VL  UCBSL_IRP(RS),R3 [GET ADDRESS OF 1/0 PACKET 
eC A D 0454 101 MOVG  IRPSL“SVAPTE(R3),- TRESTORE TRANSFER PARAMETERS 
8 AS 457 101% UCBSL ~SVAPTE(R5) Poe 
FDOF 31 439 15 BRW PREPROCESS SRETURN TO PREPROCESS UCB FIELDS 
beat 1 13 : ISSUE AN ABORT TO THE CONSOLE. WHEN THE ABORT COMPLETES, READ 
Ose 18 : THE RL11 STATUS REGISTERS, ASSERTING RST. 
43¢ 9 : THIS ROUTINE DESTROYS RO-R3 
43¢ : .ENABLE LOCAL_BLOCK 
tag 1024 RESET_STATUS_ONLY: 
OOF8 CS BEDO 045C 1025 POPL™ ycasi_ CV_ABPC (RS) :POP RETURN ADDRESS FROM STACK 
28 O11 46 6 B 760 EXECUTE 
463 1 8 ABORT RESET STATUS: 
oor8 cs BEDO 0463 1 OPC) UCBSL_CV_ABPC(RS) -POP RETURN ADDRESS FROM STACK 
oopc ¢ 3 90 0468 1 6 ROVE #1TC_ABORT,UCBSB_CV_ STATE(RS) ; 7SET DISPATCH 
6 1 DSBINT [E INTERRUPTS 
50 43 ef 9A 3 1 ; MOVZBL #<ABORT _TRANSFER!STXCS,M_IED/ RO ;SETUP FUNCTION 
0000004C 8F 50 ~=ODA 4? ; RTPR RO oP “STXCS TTELL THE CONSOLE TO ABORT 
1035 gps: 108 K 
0004 cS «= 00CC CS_—_—s 7D SCMBE : $: MOVO  UCBSL_CV F5(R5) uCcBSO_CV_ CSMP(RS) -SAVE CS/MP REGISTERS 
1 TIMEDWAIT T JLIRE=#60 T FOR CONSOLE TO BE READY 
495 1 : BPRS tse Thy. “READ STATUS REGISTER 
495 1 Ne oecobs renee. _V_ROY, R3.40$>.= :BRANCH IF READY 
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4 


' jHSY/YNE uate comsus ons ohveth np see-ige FESS A WROTE ETE GAD mania "OP ds] (88 

“9 4 DONELBL=40$ 710 SAME PLACE AS DONE 
: 46 Bes WHAT DO WE DO IF THE CONSOLE DOES NOT GO READY IN TIME? 

oope (5 049 a¢ 44 nove #1TC_RESET1 ,UCBSB_CV_STATE (RS) SET DISPATCH 

0000004C BF 00000042 BF DA " 46 MTPR #cSTATUS RESET !STACSM_IE> PRE. STXCS REQUEST STATUS WITH RSV ASSER 
4E2 1 48 60$: IOFORK . : 
Orc CS BBE SS TF Heer 1089 Saw SCRBRCSUNSRBEC ERB" O™-heFSaNROrBRLLENE S/™™ ECISTERS 

4F3 1051 gilt r 
ars 1 2} -DISABLE LOCAL_BLOCK 


CVDRIVER = VAX/VMS VAX 8600 CONSOLE DISK DRIVER 15-SEP =1984 23:43:49 AX/VM cro V04-00 Page 24 o 
Mirah INTERRUPT SERVICE ROUT! NE oats ri % 93:43 RIVER LSREIC eVDR IVER.MAR;2 (ig) 9 
re! } $ -SBTTL INTERRUPT SERVICE ROUTINE | 
‘f $ $ CVSINT = VAX 8600 CONSOLE RLO2 INTERRUPT SERVICE ROUTINE 
af g : FUNCTIONAL DESCRIPTION: 
4F3 1060 : THIS ROUTINE IS ENTERED VIA A_JSB INSTRUCTION WHEN AN INTERRUPT 
4F3 1061 : OCCURS ON THE VAX 8600 CONSOLE STXCS REGISTER. IF THE INTERRUPT 
4F3 1 ¢ : 1S NOT EXPECTED, THE UNSOLICITED INTERRUPT ROUTINE DISMISSES 
4F3 1063 : THE INTERRUPT. [Ff THE INTERRUPT IS EXPECTED, DEVICE REGISTERS 
4F3 1064 : ARE SAVED AND THE DRIVER IS CALLED AT ITS INTERRUPT RETURN ADDRESS. 
4F3 1065 : THE DRIVER FORKS, CAUSING A RETURN TO THIS ROUTINE, 
af 66 ; WHICH RESTORES SEnERAD REG:STERS AND DISMISSES THE INTERRUPT 
fF 68 : INPUTS 
4F3 1 3 : O(SP) = POINTER TO ADDRESS OF THE 108 
4F3 (1071 : 4(SP) = SAVED 
6F3 1 re : (SP) - SAVED R1 
F3 1073 : 12(SP) = SAVED R 
O4F3 107% : 16<SP) - SAVED R 
F3 (1075 : (SP) = SAVED R4 
4F3 1 2 : 4(SP) = SAVED RS 
4F3 1077 : 8(SP) = PC AT THE TIME OF THE INTERRUPT 
i 1978 : 2(SP) = PSL AT THE TIME OF THE INTERRUPT 
f ise" > OUTPUTS: 
4F3 1 ; DEVICE REGISTERS ARE SAVED, IPL IS LOWERED TO FORK LEVEL, THE 
f 10 $ : INTERRUPT IS DISMISSED, ALL REGISTERS EXCEPT RO-RS ARE bRESERVED. 
ria ett amg 
4F3 1 5 CV_INT:: yINTERRUPT SERVICE ROUTINE 
53 (9 F311 : a MOVL (sp) R3 TREMOVE ADDRESS OF IDB FROM STACK 
54 é3 Fb 89 mova R3) RG GET ADDRESS OF CSR AND UCB 
? FB 1091 BEQL : QL NO OWNER 
at's Bh i Oe 109 BBC. sens st RCS RS. cv_uNsoLit 1” sSeTERPe® BR ANCH IF NOT READY 
* 01 8 109% BBCC © #uCBSV~ = INTERRUPT NOT EXPECTED 
17 66 AS A 36 spans am UCBSW VsTsca5), CV_UNSOLNT’ ;... 
move cBSB CV STATE(RS),R3 GET INTERRUPT STATE 
~~ Cae 3 H i 38 Brae CV_INT. XFR [BRANCH IF TRANSFER INTERRUPT 
4 1 CASE R3s<- * ; AND DISPA 
14 1100 CV" INT_XFR, = [TRANSFER INTERRUPT 
16 1101 CVINT“STS{,- [FIRST PART OF STATUS 
12 1408 Eve INTTABORT, Secorneauesy US 
16 1104 CVTINT“RSTS1.~ [GET STATUS WITH RST ASSERTED 
14 1105 CV"INT“RSTS2>,- 
16 1 6 TYPE=B 
4 1108 CV_UNSOLNT: SUNSOLICITED INTERRUPT 
3F 5 11 $ ae POPR #*M<RO,R1.R2,R3,R4,R5> :RESTORE RO- 
6 1110 REI SRETURN FROM INTERRUPT 
| 
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CVDRIVER = VAX/VMS VAX 8600 CONSOLE DISK phiver 15-SEP-19 3:43:49 VAX/VMS Macro v04-00 Page 
Wen INTERRUP a ti ROUTIN Fat iets 1 833 :11 CDRIVER.SRCICVDRIVER.MAR:2 
| 
1111 ; 
| nie ? GET STATUS WITH RESET INTERRUPT 
7 1114 tvINT_RSTS1: 
ooce cS oO D BF pe 7 1115 MFPR #PRS_STXDB,UCBSL_CV_CS(RS) ;READ CONTROL/STATUS REGISTER 
000 ‘ 5 9 1116 MOVE #ITC"RESETC,UCBSB_CV_STATE(RS) ;SET NEXT STATE 
0000006C 8F 2 BF OA 111 MTPR &#<STRTUS RESET'STRCS-M_IE>, #PRS STXCS 
64 A 2 88 054 1118 BISB2 #UCBSM_IRT,UCBSW_STSTRS) ;FLAG INTERRUPT EXPTECTED 
DE 11 0546 111 BRB CV_UNSOLNT 
46 1120 CV_INT_RSTS2: 
60D0 C5 0000004D BF vB 346 i 1 vg aneer #PRS_STXDB,UCBSL_CV_MP(RS) ;SAVE MULTIPURPOSE REGISTER 
0c B85) 16 att 11 : So ae @UCBSL_FPC(RS) CALL DRIVER AT INTERRUPT RETURN ADDR 
pd) ss«1 22 1} : BRB £V_UNSOLNT 
; 4 1 : + TRANSFER INTERRUPT 
554 11 8 Cv_INT_XFR: 
33 04c 8F 0B 0554 11 MFPR #PRS_STXCS,R3 -GET STATUS REGISTER 
53 OS 08 18 «EF 0558 1130 EXTZV #STXCS_V Sis -stxcs_s_sts R3,R3 :GET CONSOLE RLO2 STATUS 
02 01 0560 1131 CMPL  #TRANS-CONTINUE,R ;CONTINUE TRANSACTION? 
03 13 0563 11 é BEQL Ss] ‘YES, CONTINUE 
OocE 31 0565 11 BRW 4008 jeL SE BRANCH TO ABORT 
64 0000 ¢S_—(00t—é;‘?D 368 1 4 10$: BBC #CV_V_RD,UCBSB_CV_STS(R5),200$ ;BRANCH IF WRITING 
36E 1 : : OPERATION IS A READ FROM DISK 
7E 000040 8F 0B 566 11 2 , MFPR  #PRS_STXDB,-(SP) ;READ DATA ONTO STACK 
46 8F «609A «(057511 MOVZBL #<READ BLOCK!STXCS M_IE>.R1 ;SET NEXT READ 
51 10 08 CCS) FO 0579 1140 INSV _ UCBSL_MEDIA(RS) ,ASTXCS_V_ADDRS ,#STXCS_S ADDRS,R1 ;SET LON 
C BF «51.—CO#A 580 1141 MTPR = R11, #P : TCONTINUE READING 
00co (SB 387 1148 TSTW yCBSu_BCRR ) SHAVE WE COMPLETED THE REQUEST? 
ce 13 0588 114 BEQL $ [IF EQL YES, DON'T WRITE TO BUFFER 
1 D0 058D 1144 MOVL = SP,R1 [GET ADDRESS OF DATA 
02 v0 0590 1145 MOVL [WRITE 2 BYTES INTO USER BUFFER 
50 8cS 00 059 1146 MOVL UCBSL_CV_BUFWIN(RS),RO :GET BUFFER ADDRESS 
O0€ bs 1 598 114 JSB CBSC_CO_MVRTN(RS) [WRITE INTO USER BUF 
00E8 0 oD 59C 1148 MOVL RO,UCBSL_CV_BUFWIN(RS) ;SAVE uiNpow INTO USER BUFFER 
O0E4 C5 9€ OSA 114 MOVAB G*f0 TOOSER2,UCBSL_CV_MVRIN(RS) ;SET MOVE ROUTINE ADDRESS 
00c0 2 AO O5AA 1150 ADDW #2. UCBSW_BCR(RS) ;COUNT TWO MORE BYTES TRANSFERRED 
CO OSAF 1131 208 ADDL2 #4.SP [CLEAR DATA FROM STACK 
— ¢5 Q 5a2 11 ; DECW $W_CV_8BC(R5) [COUNT ANOTHER WORD TRANSFERRED 
12 19 0586 11 BLSS [PROTOCOL ERROR 
54 C BF 38 1154 MFPR #PRS_STXCS,R4 “READ STXCS 
91 54 07 BF 1155 BBS #STXCS_V_ROY,R4,CV_INT_XFR ;BRANCH IF DONE AGAIN 
64 AS 02 C3 11 6 BISB2  #UCBSM~IRT,UCBSU_STS(RS);FLAG INTERRUPT EXPECTED 
FESA (? 11 1908: iW V_UNSOLNT “EXIT THIS INTERRUPT 
00DD C5 08 8 O5CA 11 é 120$:  B1SB2 #C0_M_ABORT,UCBSB_CV_STS(RS) ;FLAG TO ABORT AND RETRY 
1 CF 1159 BRW CV_TNT_aBorf :CALL DRIVER TO DO IT 
3 1189 t WRITING TO DISK 
5 D2 1163 2008: TSTw $W_BCR(RS) sREQUEST COMPLETE? 
_ S rE D 1182 é BEQL ptt : [IF EQL YES DON'T BOTHER FETCHING 
51 0 ¢5 DB 1165 MOVAB UCBSL_CV_IBUF(RS).R1  ;GET ADDRESS OF INTERNAL BUFFER 
é D bp 1166 MOVL #2, R [SET NUMBER OF BYTES 
50 8cé) oD £0 116 MOVL UCBSL_CV_BUFWIN(RS).RO :GET BUFFER WINDOW 


—_-—---— + — SSS ee 


: NOT ALL WORDS TRANSFERRED. TELL DRIVER TO ABORT AND RETRY 


i6os: 81882 #CV_M_ABORT ucBSB_CV_ STS(R5) 7FLAG TO ABORT AND RETRY 
Bru CV_INT_ABORT :CALL DRIVER TO DO IT 


: ERROR ON GET STATUS OPERATION 
tv. STSERROR: 


00DpD cS — 08 
FEED i 


* gh Added de> deb Ab Ab Ab Ah ah Al oe 
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| 
¢ R = VAX/VMS VAX CONSOLE DISK phiver 15-SEP=1 YAX/ vis Macro v04-00 
iets INTERRUP hve ee agort b-8Ep- 198 ++ $3:97 YORIVER. SRCICVDRIVER.MAR; 2 
6 p 16 H 1 JSB ab athe cv MVRTN(RS} GET 2 artes FROM USERS BUFFER 
1 MOVL root V_BUFWIN(RS) :SAVE INOW 
OOES CS “Gt 5 1 p MOVA es0 C$MO0 ROSE 8 ¢-UCBSL_ cw AVRTNGR ) :SET MOVE ROUTINE 
A F 17 ADDW eeheoty OUNT TWO mR RE BYTES 
00000040 &F 9 CS (pA «(OSFC O11 ; 2208: TPR ueé ce a ,#PRS_ sti “WRITE WO RD TO CONSOLE 
C & ; 17 TSTW UCBBVEB :REQU UEST COMPLETE? 
174 BNEQ 408 ~ SIF NEQ NO 
OED CS Ds (06 175 CLRL = UCBSL_CV_IBUF (RS) TYES, CLEAR BUFFER SO WE WRITE 0°S 
DE c 7 060F 17% 408: DECW casu_cy Cv~BBC (RS) > COUNT ANOTHER WORD TRANSFERRED 
9 0613 1177 250$: LSS $ {PROTOCOL RROR 
51 465 8F 9A 061 178 MOVZBL b<wRITE BLOCK! STXCS_M_IE> TO SEND AGAIN 
$11 8 goat 5 FO 06 17 INSV ucBsi L_MED A(RS) -ASTRCS V ” pborée esixes. S_ADDRS,R1 ;SET LON 
¢ BF 1 vA 06 180 MTPR Ri, #PRS STX TSEND COMMAND TO CONSOLE 
64 AS ‘ 181 260$: 81SB82 «#uCBSm INT, Geesw. STS(RS):FLAG INTERRUPT EXPECTED 
FEF 626 11 ¢ BRwW V_UNSOL jD1SAI ISs AWTERRUET 
00DD CS 9 5 183 2808:  61S82 aco M_ABORT,UCBSB_CV_STS(R5) ;FLAG TO ABORT AND RETRY 
FF 633 4 BRW CV_INT_aBorf :CALL DRIVER TO DO IT 
6 : TRANSACTION COMPLETE, OR ERROR DETECTED. REQUEST STATUS 
53 80 8F 91 1 8 400$:  CMPB  #HANDSHAKE_ERROR,R3 ;WAS THERE A HANDSHAKE ERROR? 
13 1 BEQL 4408 [BRANCH IF 
OODE CSB 190 TSTW tebe CV_BBC(RS) TALL WORDS TRANSFERRED? 
12 191 NEQ 4608 t IF NEQ NO 
Oope ¢S——01 198 420$: MOVB #ITC_STS1,UCBSB_CV_STATE(RS) ;SET NEXT STATE 
0000004 8F 00000044 A 19 TPR  - #<RERD_ "SrayGereracs ro i: wpers_STXCS REQUEST STATUS 
64 A 2 88 194 BISB2 #uCBSM” INT, ucBSw_STS(R5); FLAG INTERRUPT EXPECTED 
1 19) BRw CV_UNSOLN ISMISS INTERRUP 
192 § : HANDSHAKE ERROR. TELL DRIVER TO ABORT AND RETRY 
01 199 doos: NOP 7 **DEBUG 
; 


00DD C5 sees $8 pi see aCV A Ware eee. CV. ge: ;FLAG GET STATUS ERROR 


ed a ed a eed ed 0 2 Oo 8 4 8 8 be 2 8 as 8 a ts 2 a a bd a ss 2 5 ss _ te tt 


10 Rw CV_INT_ CALL DRIVER TO PROCESS ERROR 
i + GET STATUS PART 1 sutennup? 
14 v_INT_STS1: 
53 C 8F 15 MFPR = #PRS ; XCS,R3 :READ STXCS REGISTER 
F 1 BBS #31, R3,CV_STSERR CH IF ERROR GETTING STATUS 
ooce ¢5 DF B 1 MFPR srt Stee ete tv csenh GET THE CONTROL/STATUS REGISTER 
¢ 2 18 mMOVB #I1TC~$1S2,UCB$B8 tv. RSS -SET NEXT STATE 
0000004C 8F 4 BF ODA 1 MIPR <RERD_STATUS'S nie Ny ae STXCS ;REQUEST IT 
64 A 2 is 9 81SB2 FUCBSRT INT yy Fee ); FLAG INTE Raub EXPECTED 
FEBF ORW CV_UNSOLNT S INTERRUPT 

gj : GET STATUS PART 2 INTERRUPT 
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C R = VAX/VMS VAX 8600 CONSOLE DISK phiver a P-1 3: AX/VMS Ma v04- P 
vous INTERRUP Seavice ROUTINE SEp=}98e {3 43:47 DRIVER.SR RESevDRIVER.MAR: 2 i dj ) 
5 CV_LINT_STS2: 
Pa nPpe #PRS_STXCS RS sREAD STXCS REGISTER 


#31 Ok ae ty STSERROR ANCH IF RROR GETTING STATUS 
MFPR ars StKDB UCBs gy v_mpcRs) LTIPURPOSE REGISTER 


BBS #Cv_0_STSONLY,UCBSB8_CV_ sTS(h 5 "0 :BRANCH IF STATUS ONLY 


TRANSFER OF A BLOCK IS COMPLETE. SEE IF ERRORS, AND PROCESS IF SO. 
IF NO ERRORS, THEN SEE IF DONE WITH COMPLETE TRANSFER 


mova ycBs CV_CS(RS) RO :GET CS AND MP REGISTERS 
ADS AND BRUSHES OK? 
#<CV_MP_M_BH!CV_ hp M_HO!CV_SLM> 


2 Q 
BiTw  #<CV_CS_M_CE!CV_CS_M_DE! ity CS_M_NXM 
0$ * F 


SOoOoOoo nd 
. 


11 BNEQ NEQ™ eRRORY Or SOME SORT 
51 700 8F BlTw acCy Ae AWE! 
“APA Ei- 
CV=MP-M-DSE/- 
MP"M-VC>,R1 sANY ERRORS? 
OA 12 BNEQ os z1F wee alts 
00B8C C3 D BSL_MEDIA(RS) SNEXT 
00co <5 iB TSTW UCBSWTBCR(RS) TARE We “DONE 
06 1 BNEQ ‘BRANCH IF NO ONE YET 
oc B85 «16 0$:  JSB @UCBSL_FPC(RS) [CALL DRIVER Are INTERRUPT RETURN ADDR 
FE4B C311 0$: BRW CV_UNSOLNT :DISMISS 


; MORE DATA TO TRANSFER STILL 


Bree tees LN 


So i=] 
, > nm 
o oO 
[=] w 
io 
o oOo 
w — 
soo 
Ow AOo 
@COonmc 
OVW" 
© 
orro Wwrouwn 
etitatattattt tot ttt ttt ttt ett 


ios MOVW $#256,UCB$W_CV_BBC(RS)  ;=RESET BYTE COUNT FOR BLOCK 

CLRB  UCBS$B_CV_STATE(RS) SRESET STATE TO READ MODE 
53 MOVZBL #<READ BCOCK!STXCS_M_IE>.R3 :ASSUME READING 
B BS V_V_RD, UCB$B_CV_STS(RSS +208 “BRANCH IF READING 
53 G A MOVZBL #<uRiTE BLOCK!STXCS_M_IE>.R3 ;SET FOR WRITIN 

531 8 cS FO 60S: NSV SL_MEDIA(RS) ,ASTRCS_V ~Apor§ #STXCS_S_ADDRS,R3 ;SET LBN 
0000006C 8F DA MTPR #PRS_STXCS ND COMMAND”TO CONSOLE 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

> aes ° . 8 00 ¢ g.? 0 ¢ 9 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS FC oC $3 ») 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE ; 0007C ( 124.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115_DRIVER 0079D ( 1949.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 34 90: 0:00 «08 00:00:01.74 
Command processing HH 0:00: 9-36 BF RO 08-83 
Sebel tutte cart a 0:00:02:41  96:00;08:60 
able sor :00:02. :00:09. 
Pass 2 23 0: 0:08:74 00:00:18.1 
Symbol table output 3 0:00: 878 0:00:00.3 
Psect synopsis output 0:00:00. 0:00:00.02 
Cross-reference output ef 0.0 Petes 
Assembler run totals 97 00:00:24.40 0:01:44.1 


The working oes Limit was 2100 pages. ; 

140986 bytes (276 pages) of virtual memory were used to buffer the intermediate ggde- 

There were 120 pages of symbol table space allocated to hold 2192 non-local and local symbols. 
1303 source Lines were read in Pass 1, produc ing 1 object records in Pass 2. 

45 pages of virtual memory were used to define 42 macros. 
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! Macro Library statistics ! 


pwr ences cca comer eneenran em + 


Macro library name Macros defined 
“$522 80UAE: SYS.OBJJLI8.MLB;1 28 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 10 
TOTALS (all Libraries) 38 


2392 GETS were required to define 38 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CVDRIVER/OBJ=0BJ$:CVDRIVER MSRC$:CVDRIVER/UPDATE=(ENHS$:CVDRIVER) *EXECMLS$/LIB 
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